can somebody help me ? i tried to make a program to sorting the name for my studies. but error happens.
program sorting_name;
var
name1,name2,name3:string;
{algoritma}
begin
write('input name 1: '); readln(name1);
write('input name 2: '); readln(name2);
write('input name 3: '); readln(name3);
if name1>name2 and name2>name3 then
begin
writeln(name1,name2,name3);
end
else if name2>name1 and name1>name3 then
begin
writeln(name2,name1,name3);
end
else if name3>name2 and name2>name1 then
begin
writeln(name3,name2,name1);
end
else if name2>name3 and name3>name1 then
begin
writeln(name2,name3,name1);
end
else if name3>name1 and name1>name2 then
begin
writeln(name3,name1,name2);
end
else
begin
writeln(name1,name3,name2);
end;
readln;
end.