longestword = ""
while words remain
     if wordLen(longestword) < wordLen(newword)
          longestword = newword

var info : flexible array 1 .. 400 of string
var counter : int := 1
var ans : string
var longchar : array 1 .. 4 of int
var biggest : int

%Make longchar array all = 1
for w : 1 .. 4
    longchar (w) := 1
end for

%Just my proc for every program, just cls+View.Update
proc clear
    cls
    View.Update
end clear

%Fill the info array
proc ask
    loop
        put "Please enter your name"
        get info (counter)
        put "Please enter your phone number"
        get info (counter + 100)
        put "Please enter your city"
        get info (counter + 200)
        put "Please enter your email"
        get info (counter + 300)
        put "Any more data (Y/N)"
        get ans
        counter += 1
        clear
        exit when ans = "N"
    end loop
end ask

ask

%These are to find the biggest value entered by the user
for i : 1 .. 100
    if longchar (1) < length (info (i)) then
        longchar (1) := length (info (i))
    end if
end for

for q : 100 .. 200
    if longchar (2) < length (info (q)) then
        longchar (2) := length (info (q))
    end if
end for

for k : 200 .. 300
    if longchar (3) < length (info (k)) then
        longchar (3) := length (info (k))
    end if
end for

for n : 300 .. 400
    if longchar (4) < length (info (n)) then
        longchar (4) := length (info (n))
    end if
end for

%So that we can determine the spacing
function space : int
    for x : 2 .. 4
        if longchar (1) < longchar (x) then
            biggest := longchar (1)
        end if
    end for
    for d : 3 .. 4
        if longchar (2) < longchar (d) then
            biggest := longchar (2)
        elsif longchar (2) < longchar (1) then
            biggest := longchar (2)
        end if
    end for
    for g : 1 .. 2
        if longchar (3) < longchar (g) then
            biggest := longchar (3)
        elsif longchar (3) < longchar (4) then
            biggest := longchar (3)
        end if
    end for
    for f : 1 .. 3
        if longchar (4) < longchar (f) then
            biggest := longchar (4)
        end if
    end for
    result biggest
end space

%Make it look like columns, and display it
clear
put "Name" : space, "Phone" : space, "City" : space, "Email"

counter -= 1

for b : 1 .. counter
    put info (b) : space, info (b + 100) : space, info (b + 200) : space, info (b + 300) : space
end for