Все верно. Но лучше использовать заместо цикла while, цикл for. И не нужна запись str, и.к. Изначально ужевводится в строковом виде
Program A1;
var a,b:Integer; {Можно и real}
begin
readln (a,b);
if a<b then writeln ('Число а больше числа б') else writeln ('Число б больше числа а');
end.
Можно быстро подключить наушники с микрофоном, и чтобы было 2 выхода аудио, один через колонки например, вторые через наушники, и есть еще порты USB, удобны если подключать переносной hdd, или подключать телефон, фотоаппарат и т.п.
Var
a,b:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
if a=b then WriteLn(a,' = ',b)
else if a>b then WriteLn(a,' > ',b)
else WriteLn(a,' < ',b);
End.
Диск наверное...................